# (decoded with TMPL 11972)
{----------}
Procedure Do%MenuItemName%;
var
	%menuItemName%Info:	%menuItemName%Rec;
Begin
	with %menuItemName%Info do begin
		{initialize info}
		%InitFields%
		Get%MenuItemName% (%menuItemName%Info);
		{use info}
	end; {with}
End; {Do%MenuItemName%}